home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.3 / Video Toaster v4.3.iso / 3.1 / toasterall / arexx_examples / tpaint / blurvignette.rexx < prev    next >
OS/2 REXX Batch file  |  1993-05-13  |  734b  |  24 lines
  1. /* BlurVignette.rexx -- Blur Pic edges  */
  2. /* © 1993 NewTek, Inc.    by Arnie Cachelin */
  3.  
  4. if pos('DigiPaint',show(ports))=0 then do
  5.   say "Can't find ToasterPaint!"
  6.   exit
  7. end
  8.  
  9. Address "DigiPaint"     /* Tell ARexx where commands go  */
  10.  
  11. 'Hvof'          /* Set to radial gradient off */
  12. 'Hvar'          /* Toggle radial gradient blend */
  13. 'Potv' $8000    /* Set hotspot center */
  14. 'Poth' $8000    /* Set hotspot  center */
  15. 'Minc'          /* Set Center transparency to 0% */
  16. 'Maxe'          /* Set Edge transparency to 100% */
  17. 'Blu2'          /* Heavy Blur mode */
  18. 'Whsc'          /* Fill Whole Screen */
  19. 'Blu2'          /* Heavy Blur mode */
  20. 'Whsc'          /* Fill Whole Screen */
  21. 'Shco'          /* Render to composite out */
  22. exit
  23.  
  24.